A.C.E. 3/ACE CD 3.iso/files/utils/aplay200.lha/APlayer/HDInstall

Text File | 1995-12-24 | 48KB | 1,530 lines

;**************************************************************************
;*                                                                        *
;*                 Installer Script For Accessible Player                 *
;*                                                                        *
;*                            Update 27/12-1995                           *
;*                                                                        *
;**************************************************************************

;--------------------------------------------------------------------------
; Procedures

(procedure InstallLib
    (working ("Testing %s" libname))
    (copylib
        (prompt ("Do you want to install the \"%s\"?" libname))
        (help @copylib-help)
        (source (tackon tempdir libname))
        (dest libdest)
        (confirm)
    )
)

(procedure DeleteAll
    (if (exists deldir)
        (foreach deldir "#?"
            (delete (tackon deldir @each-name)
                (optional force)
            )
        )
    )
)

;--------------------------------------------------------------------------
; ** Install Procedure

(procedure Install
    (message "This version of APlayer is shareware. "
             "Without registration you will miss some of APlayer "
             "features. On how to register, read the guide.\n\n"
             "If you still want to install press proceed else abort."
    )

    (message "You are now about to install the APlayer program. "
             "You will first be asked for all the different files "
             "you can install and then this script will begin to "
             "install the files."
    )

    (set default-dest
        (askdir
            (prompt "Where do you want to make the APlayer drawer?")
            (help @askdir-help)
            (default @default-dest)
        )
    )
    (set @default-dest default-dest)


    (set fileflag
        (askoptions
            (prompt "Which files do you want to install in the "
                    "\"APlayer\" drawer?")
            (help @askoptions-help)
            (choices
                "APlayer"
                "Commercial Picture"
            )
        )
    )


    (set play
        (askbool
            (prompt "Do you want to install external players?")
            (help "If you select yes, you can select between all the "
                  "external players this version support. All the players "
                  "will be stored in your \"LIBS:APlayer\" drawer.")
        )
    )

    (set playflag1 0)
    (set playflag2 0)
    (set playflag3 0)
    (set playflag4 0)
    (set playflag5 0)
    (set playflag6 0)
    (set playflag7 0)
    (set playflag8 0)
    (if play
        (
            (set playflag1
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Action Amics"
                        "Activision Pro"
                        "Art of Noise"
                        "DeliCustom"
                        "Delta 2.0"
                        "Digital Mugician"
                        "DSS"
                        "FastTracker"
                    )
                )
            )

            (set playflag2
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "FastTracker 2.0"
                        "Fred"
                        "Face The Music"
                        "Future Composer 1.0-1.3"
                        "Future Composer 1.4"
                        "Hippel-COSO"
                        "Hippel"
                        "IFF-8SVX"
                    )
                )
            )

            (set playflag3
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "IFF-AIFF"
                        "IFF-SMUS"
                        "In Stereo!"
                        "JamCracker"
                        "J.C. Brooke"
                        "Major Tom"
                        "Maniacs of Noise"
                        "Mark Cooksey"
                    )
                )
            )

            (set playflag4
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Mark II"
                        "MED"
                        "MultiTracker"
                        "Music Assembler"
                        "Noise Packer 2.0"
                        "Noise Packer 3.0"
                        "OctaMed"
                        "Oktalyzer"
                    )
                )
            )

            (set playflag5
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Puma Tracker"
                        "Quadra Composer"
                        "RIFF-WAVE"
                        "Ron Klaren"
                        "ScreamTracker 3.0"
                        "SID"
                        "SidMon 1.0"
                        "SidMon 2.0"
                    )
                )
            )

            (set playflag6
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Sonic Arranger"
                        "Sound Control"
                        "Sound Factory"
                        "Sound FX 1.3"
                        "Sound FX 2.0"
                        "Sound Monitor 2.0"
                        "Sound Monitor 2.2"
                        "StarTrekker 4"
                    )
                )
            )

            (set playflag7
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "StarTrekker 4AM"
                        "Synthesis"
                        "TakeTracker"
                        "TFMX 1.5"
                        "TFMX 7-Voices"
                        "TFMX Professional"
                        "The Musical Enlightenment"
                        "Tim Folin"
                    )
                )
            )

            (set playflag8
                (askoptions
                    (prompt "Which external players do you want to install in "
                            "your \"LIBS:APlayer\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Tronic Tracker"
                        "Vector Dean"
                        "Voodoo Supreme Synthesizer"
                        "Whittaker"
                    )
                )
            )
        )
    )

    (set noteplay
        (askbool
            (prompt "Do you want to install external NotePlayers?")
            (help "If you select yes, you can select between all the "
                  "external NotePlayers this version support. All the "
                  "NotePlayers will be stored in your \"LIBS:APlayer/NotePlayers\" drawer.")
        )
    )

    (set noteplayflag1 0)
    (if noteplay
        (
            (set noteplayflag1
                (askoptions
                    (prompt "Which external NotePlayers do you want to install in "
                            "your \"LIBS:APlayer/NotePlayers\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "14 Bit Stereo - 2 Voices"
                        "14 Bit Stereo - 32 Voices"
                        "FastMem - 4 Voices"
                        "Mono - 32 Voices"
                        "Real Surround - 32 Voices"
                        "Stereo - 32 Voices"
                        "Surround - 32 Voices"
                    )
                )
            )
        )
    )


    (set agent
        (askbool
            (prompt "Do you want to install external Agents?")
            (help "If you select yes, you can select between all the "
                  "external Agents this version support. All the "
                  "Agents will be stored in your \"LIBS:APlayer/Agents\" drawer.")
        )
    )

    (set agentflag1 0)
    (if agent
        (
            (set agentflag1
                (askoptions
                    (prompt "Which external Agents do you want to install in "
                            "your \"LIBS:APlayer/Agents\" drawer?")
                    (help @askoptions-help)
                    (choices
                        "Favourite Song System"
                        "Multi - Sample Saver"
                        "Bar - Scope"
                        "RGBBox - Scope"
                        "SpinSquare - Scope"
                    )
                )
            )

            (set multiflag1 0)
            (if (in agentflag1 1)
                (
                    (set multiflag1
                        (askoptions
                            (prompt "You have selected the Multi-SampleSaver agent. "
                                    "Which sample modules do you want to install?")
                            (help @askoptions-help)
                            (choices
                                "IFF-8SVX"
                                "IFF-AIFF"
                                "Raw"
                                "RIFF-WAVE"
                            )
                        )
                    )
                )
            )
        )
    )


    (set libs
        (askoptions
            (prompt "Which other libraries do you want to install in your "
                    "\"LIBS:\" drawer?  Press help for more info.")
            (help "This is some libraries the APlayer uses or can use. "
                  "Here follow a little description of the different "
                  "libraries:\n\n"
                  "PlaySID.library: This library are used in the SID "
                  "player. That means, if you want to hear some C64 SID "
                  "tunes, you have to install this library.\n\n"
                  "Powerpacker.library: APlayer can use this library to "
                  "decrunch powerpacked modules.\n\n"
                  "Reqtools.library: This library is required by APlayer. "
                  "With this library APlayer shows filerequesters etc.\n\n"
                  "Rexxtools.library: If you want ARexx in APlayer, you "
                  "have to install this library. It helps APlayer to make "
                  "the ARexx interface.\n\n"
                  "Xpkmaster.library: APlayer can also use this library to "
                  "decrunch both powerpacked and xpk packed modules.\n\n"
                  "Unpack.library: This library can decrunch a lot of "
                  "different types of crunched modules. See the unpack.doc "
                  "for more information.")
            (choices
                "PlaySID.library"
                "Powerpacker.library"
                "Reqtools.library"
                "Rexxtools.library"
                "Xpkmaster.library"
                "Unpack.library"
            )
        )
    )


    (set cpu (database "cpu"))
    (if (< cpu 68020)
        (set marked 3)
        (set marked 5)
    )

    (set xpk
        (askoptions
            (prompt "Which xpk libraries do you want to install in your "
                    "\"LIBS:compressors\" drawer?")
            (help @askoptions-help)
            (choices
                "xpkSMPL.library"
                "xpkSQSH.library (68000)"
                "XpkSQSH.library (68020)"
            (default marked)
            )
        )
    )


    (set arexx
        (askbool
            (prompt "Do you want to install ARexx?")
            (help @askbool-help)
        )
    )


    (set doc
        (askbool
            (prompt "Do you want to install docs?")
            (help "If you select yes, you can select between all the "
                  "different docs. All the docs will be install in the "
                  "\"APlayer/Docs\" drawer.")
        )
    )

    (set docflag 0)
    (if doc
        (set docflag
            (askoptions
                (prompt "Which files do you want to install in the "
                        "\"APlayer/Docs\" drawer?")
                (help @askoptions-help)
                (choices
                    "APlayer.guide"
                    "MissingModules.txt"
                    "PlaySid.doc"
                    "SMPL.doc"
                    "SQSH.doc"
                    "Unpack.guide"
                    "RegistrationForm"
                    "Installer Script"
                )
            )
        )
    )


    (set developer
        (askbool
            (prompt "Do you want to install the developer set?")
            (help @askbool-help)
        )
    )

; ** Begin to copy the files

    (set @default-dest (tackon @default-dest "APlayer"))
    (set lhex (tackon sdir "C/lhex"))
    (set tempdir "T:apTemp")
    (set deldir tempdir)

    (makedir tempdir)
    (makedir @default-dest)

    (copyfiles                             ;Copy Icon To APlayer Directory
        (source (tackon sdir "/APlayer.info"))
        (dest (tackon @default-dest "/"))
    )

    (if fileflag
        (
            (working "Unpacking program archive....")
            (run ("\"%s\" -fqw=%s x Files/Program.lha >NIL:" lhex tempdir))

            (if (in fileflag 0)                     ;APlayer File
                (
                    (set datadir (tackon @default-dest "Data"))
                    (makedir datadir)
                    (copyfiles
                        (source (tackon tempdir "APlayer"))
                        (dest @default-dest)
                        (infos)
                    )

                    (copyfiles
                        (source (tackon tempdir "Data/Help.Nodes"))
                        (dest (tackon @default-dest "Data/"))
                    )

                    (copyfiles
                        (source (tackon tempdir "Data/Tips.dat"))
                        (dest (tackon @default-dest "Data/"))
                    )

                    (copyfiles
                        (source (tackon tempdir "Data/Why.dat"))
                        (dest (tackon @default-dest "Data/"))
                    )
                )
            )

            (if (in fileflag 1)                     ;Commercial Picture
                (
                    (copyfiles
                        (source (tackon sdir "ShowMe.jpg"))
                        (dest @default-dest)
                        (infos)
                    )
                )
            )
        (set deldir (tackon tempdir "Data"))
        (DeleteAll)
        (set deldir tempdir)
        )
    )
    (complete 10)


    (if (or (or (or (or (or (or (or playflag1 playflag2) playflag3) playflag4) playflag5) playflag6) playflag7) playflag8)
        (
            (makedir "LIBS:APlayer")
            (working "Unpacking player archive....")
            (run ("\"%s\" -fqw=%s x Files/Players.lha >NIL:" lhex tempdir))
            (set libdest "LIBS:APlayer/")
            (delete "LIBS:APlayer/apHolyNoise.library")

            (if playflag1
                (
                    (if (in playflag1 0)
                        (
                            (set libname "apActionAmics.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 1)
                        (
                            (set libname "apActivisionPro.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 2)
                        (
                            (set libname "apArtOfNoise.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 3)
                        (
                            (set libname "apDeliCustom.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 4)
                        (
                            (set libname "apDelta20.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 5)
                        (
                            (set libname "apDigitalMugician.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 6)
                        (
                            (set libname "apDSS.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag1 7)
                        (
                            (set libname "apFastTracker.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 11)

            (if playflag2
                (
                    (if (in playflag2 0)
                        (
                            (set libname "apFastTracker20.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 1)
                        (
                            (set libname "apFred.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 2)
                        (
                            (set libname "apFTM.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 3)
                        (
                            (set libname "apFuture13.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 4)
                        (
                            (set libname "apFuture14.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 5)
                        (
                            (set libname "apHippel-COSO.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 6)
                        (
                            (set libname "apHippel.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag2 7)
                        (
                            (set libname "apIFF-8SVX.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 13)

            (if playflag3
                (
                    (if (in playflag3 0)
                        (
                            (set libname "apIFF-AIFF.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 1)
                        (
                            (set libname "apIFF-SMUS.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 2)
                        (
                            (set libname "apInStereo!.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 3)
                        (
                            (set libname "apJamCracker.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 4)
                        (
                            (set libname "apJCBrooke.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 5)
                        (
                            (set libname "apMajorTom.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 6)
                        (
                            (set libname "apMON.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag3 7)
                        (
                            (set libname "apMarkCooksey.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 14)

            (if playflag4
                (
                    (if (in playflag4 0)
                        (
                            (set libname "apMarkII.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 1)
                        (
                            (set libname "apMED.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 2)
                        (
                            (set libname "apMultiTracker.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 3)
                        (
                            (set libname "apMusicAss.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 4)
                        (
                            (set libname "apNoisePacker20.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 5)
                        (
                            (set libname "apNoisePacker30.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 6)
                        (
                            (set libname "apOctaMed.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag4 7)
                        (
                            (set libname "apOktalyzer.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 15)

            (if playflag5
                (
                    (if (in playflag5 0)
                        (
                            (set libname "apPumaTracker.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 1)
                        (
                            (set libname "apQuadraComposer.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 2)
                        (
                            (set libname "apRIFF-WAVE.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 3)
                        (
                            (set libname "apRonKlaren.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 4)
                        (
                            (set libname "apScreamTracker30.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 5)
                        (
                            (set libname "apSID.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 6)
                        (
                            (set libname "apSidMon10.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag5 7)
                        (
                            (set libname "apSidMon20.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 16)

            (if playflag6
                (
                    (if (in playflag6 0)
                        (
                            (set libname "apSonicArranger.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 1)
                        (
                            (set libname "apSoundControl.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 2)
                        (
                            (set libname "apSoundFactory.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 3)
                        (
                            (set libname "apSoundFX13.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 4)
                        (
                            (set libname "apSoundFX20.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 5)
                        (
                            (set libname "apSoundMon20.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 6)
                        (
                            (set libname "apSoundMon22.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag6 7)
                        (
                            (set libname "apStarTrekker4.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 18)

            (if playflag7
                (
                    (if (in playflag7 0)
                        (
                            (set libname "apStarTrekker4AM.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 1)
                        (
                            (set libname "apSynthesis.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 2)
                        (
                            (set libname "apTakeTracker.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 3)
                        (
                            (set libname "apTFMX_15.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 4)
                        (
                            (set libname "apTFMX_7V.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 5)
                        (
                            (set libname "apTFMX_Pro.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 6)
                        (
                            (set libname "apTME.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag7 7)
                        (
                            (set libname "apTimFolin.library")
                            (InstallLib)
                        )
                    )
                )
            )
            (complete 19)

            (if playflag8
                (
                    (if (in playflag8 0)
                        (
                            (set libname "apTronicTracker.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag8 1)
                        (
                            (set libname "apVectorDean.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag8 2)
                        (
                            (set libname "apVSS.library")
                            (InstallLib)
                        )
                    )

                    (if (in playflag8 3)
                        (
                            (set libname "apWhittaker.library")
                            (InstallLib)
                        )
                    )
                )
            )
        (DeleteAll)
        )
    )
    (complete 20)


    (if noteplayflag1
        (
            (makedir "LIBS:APlayer/NotePlayers")
            (working "Unpacking NotePlayer archive....")
            (run ("\"%s\" -fqw=%s x Files/NotePlayers.lha >NIL:" lhex tempdir))
            (set libdest "LIBS:APlayer/NotePlayers")

            (if (in noteplayflag1 0)
                (
                    (set libname "an14BitStereo-2Voices.library")
                    (InstallLib)
                )
            )

            (if (in noteplayflag1 1)
                (
                    (set libname "an14BitStereo-32Voices.library")
                    (InstallLib)
                )
            )

            (if (in noteplayflag1 2)
                (
                    (set libname "anFastMem-4Voices.library")
                    (InstallLib)
                )
            )

            (if (in noteplayflag1 3)
                (
                    (set libname "anMono-32Voices.library")
                    (InstallLib)
                )
            )

            (if (in noteplayflag1 4)
                (
                    (set libname "anReSurround-32Voices.library")
                    (InstallLib)
                )
            )

            (if (in noteplayflag1 5)
                (
                    (set libname "anStereo-32Voices.library")
                    (InstallLib)
                )
            )

            (if (in noteplayflag1 6)
                (
                    (set libname "anSurround-32Voices.library")
                    (InstallLib)
                )
            )
        (DeleteAll)
        )
    )
    (complete 30)


    (if agentflag1
        (
            (makedir "LIBS:APlayer/Agents")
            (working "Unpacking Agent archive....")
            (run ("\"%s\" -fqw=%s x Files/Agents.lha >NIL:" lhex tempdir))
            (set libdest "LIBS:APlayer/Agents")

            (if (in agentflag1 0)
                (
                    (set libname "aaFSS.library")
                    (InstallLib)
                )
            )

            (if (in agentflag1 1)
                (
                    (set libname "aaMulti-SampleSaver.library")
                    (InstallLib)
                )
            )

            (if (in agentflag1 2)
                (
                    (set libname "aaBar-Scope.library")
                    (InstallLib)
                )
            )

            (if (in agentflag1 3)
                (
                    (set libname "aaRGBBox-Scope.library")
                    (InstallLib)
                )
            )

            (if (in agentflag1 4)
                (
                    (set libname "aaSpinSquare-Scope.library")
                    (InstallLib)
                )
            )
        (DeleteAll)
        )
    )
    (complete 35)

    (if multiflag1
        (
            (makedir "LIBS:APlayer/Agents/MSSModules")
            (working "Unpacking Multi Modules archive....")
            (run ("\"%s\" -fqw=%s x Files/MultiMods.lha >NIL:" lhex tempdir))
            (set libdest "LIBS:APlayer/Agents/MSSModules")

            (if (in multiflag1 0)
                (
                    (set libname "mmIFF-8SVX.library")
                    (InstallLib)
                )
            )

            (if (in multiflag1 1)
                (
                    (set libname "mmIFF-AIFF.library")
                    (InstallLib)
                )
            )

            (if (in multiflag1 2)
                (
                    (set libname "mmRaw.library")
                    (InstallLib)
                )
            )

            (if (in multiflag1 3)
                (
                    (set libname "mmRIFF-WAVE.library")
                    (InstallLib)
                )
            )
        (DeleteAll)
        )
    )
    (complete 40)


    (if libs
        (
            (working "Unpacking library archive....")
            (run ("\"%s\" -fqw=%s x Files/Libraries.lha >NIL:" lhex tempdir))
            (set libdest "LIBS:")

            (if (in libs 0)
                (
                    (set libname "playsid.library")
                    (InstallLib)
                )
            )

            (if (in libs 1)
                (
                    (set libname "powerpacker.library")
                    (InstallLib)
                )
            )

            (if (in libs 2)
                (
                    (set libname "reqtools.library")
                    (InstallLib)
                )
            )

            (if (in libs 3)
                (
                    (set libname "rexxtools.library")
                    (InstallLib)
                )
            )

            (if (in libs 4)
                (
                    (set libname "xpkmaster.library")
                    (InstallLib)
                )
            )

            (if (in libs 5)
                (
                    (set libname "unpack.library")
                    (InstallLib)
                )
            )
        (DeleteAll)
        )
    )
    (complete 50)


    (if xpk
        (
            (makedir "LIBS:compressors")
            (working "Unpacking XPK-Subs archive....")
            (run ("\"%s\" -fqw=%s x Files/XPKSubs.lha >NIL:" lhex tempdir))
            (set libdest "LIBS:compressors/")

            (if (in xpk 0)
                (
                    (set libname "xpkSMPL.library")
                    (InstallLib)
                )
            )

            (if (in xpk 1)
                (
                    (working ("Testing compressors/xpkSQSH.library"))
                    (copylib
                        (prompt ("Do you want to install the \"compressors/xpkSQSH.library\"?"))
                        (help @copylib-help)
                        (source (tackon tempdir "xpkSQSH000.library"))
                        (dest libdest)
                        (newname "xpkSQSH.library")
                        (confirm)
                    )
                )
            )

            (if (in xpk 2)
                (
                    (working ("Testing compressors/xpkSQSH.library"))
                    (copylib
                        (prompt ("Do you want to install the \"compressors/xpkSQSH.library\"?"))
                        (help @copylib-help)
                        (source (tackon tempdir "xpkSQSH020.library"))
                        (dest libdest)
                        (newname "xpkSQSH.library")
                        (confirm)
                    )
                )
            )
        (DeleteAll)
        )
    )
    (complete 60)


    (if arexx
        (
            (set arexxdir (tackon @default-dest "ARexx"))
            (makedir arexxdir)
            (working "Unpacking ARexx archive....")
            (run ("\"%s\" -fqw=%s x Files/ARexx.lha >NIL:" lhex arexxdir))
        )
    )
    (complete 70)


    (if doc
        (
            (set docdir (tackon @default-dest "Docs"))
            (makedir (tackon @default-dest "Docs") (infos))
            (working "Unpacking Docs archive....")
            (run ("\"%s\" -fqw=%s x Files/Docs.lha >NIL:" lhex tempdir))

            (if (in docflag 0)
                (
                    (copyfiles
                        (source (tackon tempdir "APlayer.guide"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 1)
                (
                    (copyfiles
                        (source (tackon tempdir "MissingModules.txt"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 2)
                (
                    (copyfiles
                        (source (tackon tempdir "PlaySid.doc"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 3)
                (
                    (copyfiles
                        (source (tackon tempdir "SMPL.doc"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 4)
                (
                    (copyfiles
                        (source (tackon tempdir "SQSH.doc"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 5)
                (
                    (delete (tackon docdir "Unpack.doc"))
                    (delete (tackon docdir "Unpack.doc.info"))
                    (copyfiles
                        (source (tackon tempdir "Unpacker.guide"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 6)
                (
                    (copyfiles
                        (source (tackon tempdir "RegistrationForm"))
                        (dest docdir)
                        (infos)
                    )
                )
            )

            (if (in docflag 7)
                (
                    (copyfiles
                        (source (tackon sdir "HDInstall"))
                        (dest @default-dest)
                        (infos)
                    )
                )
            )
        (delete (tackon docdir "Bonus.doc"))
        (delete (tackon docdir "Bonus.doc.info"))
        (DeleteAll)
        )
    )
    (complete 80)


    (if developer
        (
            (set devdir (tackon @default-dest "Developer"))
            (makedir devdir)
            (working "Unpacking Developer archive....")
            (run ("\"%s\" -fqw=%s x Files/Developer.lha >NIL:" lhex devdir))
        )
    )
    (complete 90)

; Delete Bonus Files

    (set deldir (tackon @default-dest "Bonus"))
    (DeleteAll)


; Fix the configuration files

    (if (exists "ENVARC:APlayer/")
        (
            (makedir "ENVARC:APlayer/Players")
            (makedir "ENVARC:APlayer/NotePlayers")

            (delete "ENVARC:APlayer/IFF-8SVX.cfg")
            (delete "ENVARC:APlayer/Players/IFF-8SVX.cfg")
            (delete "ENVARC:APlayer/IFF-AIFF.cfg")
            (delete "ENVARC:APlayer/Players/IFF-AIFF.cfg")
            (delete "ENVARC:APlayer/Players/RIFF-WAVE.cfg")
            (delete "ENVARC:APlayer/NotePlayers/FastMem4.cfg")

            (delete "ENVARC:APlayer/Protracker.cfg")
            (delete "ENVARC:APlayer/Players/Protracker.cfg")

            (if (exists "ENVARC:APlayer/APlayer.prefs")
                (
                    (if (askbool
                            (prompt "Do you want to convert your old preference"
                                "file to the new format?")
                            (help "From this version of APlayer, the file format"
                                " of the preference file is changed. Therefore"
                                " you have to convert your preference file to"
                                " the new format if you want to use your old"
                                " settings.")
                        )
                        (
                            (run ("\"%s\" >ENV:convtxt" (tackon sdir "C/PrefsConvert")))

                            (if (not (exists "ENVARC:APlayer/APlayer2.0.prefs"))
                                (
                                    (message "Something went wrong when converting!!!\n\n"
                                        ("%s" (getenv "convtxt")))
                                )
                                (
                                    (if (askbool
                                            (prompt "You now have a new preference file."
                                                " Do you want to delete your"
                                                " old preference files and rename the new "
                                                "one?")
                                            (help "")
                                        )
                                        (
                                            (delete "ENVARC:APlayer/APlayer.prefs")
                                            (delete "ENVARC:APlayer/APlayer.win")
                                            (delete "ENVARC:APlayer/APlayer.arexx")
                                            (rename "ENVARC:APlayer/APlayer2.0.prefs" "ENVARC:APlayer/APlayer.prefs")
                                            (rename "ENVARC:APlayer/APlayer2.0.win" "ENVARC:APlayer/APlayer.win")
                                        )
                                    )
                                )
                            )
                            (delete "ENV:convtxt")
                        )
                    )
                )
            )
        )
    )
    (complete 100)
    (delete deldir)

    (message "You have to reset your computer before using APlayer.")
)

;--------------------------------------------------------------------------
; ** Remove Procedure

(procedure Remove
    (if (askbool
            (prompt "This procedure will remove all files associated to "
                    "the APlayer program. This means the program, docs, "
                    "preference files and all extern players.\n\n"
                    "Are you sure you want to continue?")
            (help "")
        )

        (
            (set @default-dest
                (askdir
                    (prompt "Select where the \"APlayer\" drawer are "
                            "stored.")
                    (help @askdir-help)
                    (default @default-dest)
                )
            )

            (working "Deleting the \"APlayer\" drawer...")
            (set ddir (tackon @default-dest "APlayer"))

            (set deldir (tackon ddir "Data"))
            (DeleteAll)

            (set deldir (tackon ddir "ARexx"))
            (DeleteAll)

            (set deldir (tackon ddir "Bonus"))
            (DeleteAll)

            (set deldir (tackon ddir "Docs"))
            (DeleteAll)

            (set deldir (tackon ddir "Developer/Examples"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Include3.0/Own"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Include3.0"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Doc"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/FD"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Include/CLib"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Include/Libraries"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Include/Pragmas"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Include/Proto"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Include"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools/Libs"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer/Rexxtools"))
            (DeleteAll)
            (set deldir (tackon ddir "Developer"))
            (DeleteAll)

            (set deldir ddir)
            (DeleteAll)

            (delete ddir)
            (delete (tackon @default-dest "APlayer.info"))

            (delete "S:APlayer.FSS")
            (complete 20)


            (working "Deleting preference files...")
            (set ddir "ENVARC:APlayer")
            (set deldir (tackon ddir "Players"))
            (DeleteAll)
            (set deldir (tackon ddir "NotePlayers"))
            (DeleteAll)
            (set deldir (tackon ddir "Agents"))
            (DeleteAll)
            (set deldir ddir)
            (DeleteAll)
            (delete "ENVARC:APlayer")
            (complete 40)

            (working "Deleting external Agents...")
            (set deldir "LIBS:APlayer/Agents/MSSModules")
            (DeleteAll)
            (set deldir "LIBS:APlayer/Agents")
            (DeleteAll)
            (delete "LIBS:APlayer/Agents")
            (complete 60)

            (working "Deleting external NotePlayers...")
            (set deldir "LIBS:APlayer/NotePlayers")
            (DeleteAll)
            (delete "LIBS:APlayer/NotePlayers")
            (complete 80)

            (working "Deleting external players...")
            (set deldir "LIBS:APlayer")
            (DeleteAll)
            (delete "LIBS:APlayer")
            (complete 100)
        )
    )
)

;--------------------------------------------------------------------------
; ** Main Stript

(complete 0)
(set sdir (pathonly @icon))

(if (< (/ (getversion) 65536) 37)
    (abort "You must have Kickstart 2.0 or greater to use this installation"
           " utility and to run \"Accessible Player\".")
)

(message "This installer script will help you to install/remove "
         "\"Accessible Player\" to/from your hard disk.\n"
         "If you don't own one, abort immediately.")

(welcome)


; ** Ask to Install Or Remove

(set askflag (askbool
                (prompt "Do you want to install or remove "
                        "\"Accessible Player\"?")
                (help "")
                (choices "Install" "Remove")
             )
)

(if askflag
    (Install)                       ;Start Install Procedure
    (Remove)                        ;Start Remove Procedure
)